Ҳ
 interfaceprivate
 
PROCEDURE CMEraseBkgnd(var Message:TWMEraseBkgnd);Message WM_ERASEBKGND;
 
implemetation
 PROCEDURE Tform1.CMEraseBkgnd(var Message:TWMEraseBkgnd);
 BEGIN
   brush.style:=bsClear;
   Inherited;
 END;


procedure TForm1.FormCreate(Sender: TObject);
 begin
   BorderStyle := bsNone;
   Brush.Style := bsClear;
 end;